1 POKE808,225
2 PRINTCHR$(8)
4 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-1086:P=K-1019:SYSA:T$(0)=",8":T$(1)=",8,1"
5 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$=""+LN$+LN$+LN$+LN$:SP$="                   ":SP$=SP$+SP$
6 POKE53280,0:POKE53281,0:Y=1:R$(0)="":R$(1)="[146]":X(0)=2:X(1)=22
7 PRINT""
8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0
14 SYSP,14,1
16 SYSP,14,2:MX=15:IFMX>(N-G)THENMX=N-G
18 SYSP,7,4:R=1:PRINT"[156]    AVALON VI 1995 "
19 PRINT""
22 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"[158]USE CURSOR KEY TO MOVE CURSOR"
24 SYSP,15,18
26 SYSP,0,21:PRINTLN$
28 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[154]PRESS THE [N] KEY FOR NEXT PAGE"
30 SYSP,6,I:PRINT"PRESS [RETURN] TO LOAD FILE ":POKE198,0
32 R=(R+1)*-(R<1):GOSUB50:T=0
34 GETA$:T=T+1:IFA$=""ANDT<20THEN34
36 IFA$=""THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
38 IFA$=""ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
40 IFA$="[145]"THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
42 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
46 IFA$=CHR$(13)THEN62
48 GOTO32
50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9:PRINTR$(R);LEFT$(F$(Y+G),16)
52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
54 PRINT"[146]";B$;A$;B$:RETURN
56 IFY>MXTHENY=0
58 IFY<0THENY=MX
60 RETURN
62 IFS(Y+G)THENSYS52256
64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
66 POKE631,13:POKE632,13:POKE198,2:END
68 :
70 :
98 REM 0=NO WARP/DRIVE   0= ",8"
100 DATA 16:REM NUMBER FILENAMES
103 DATA 0,"HAL'S CHAT!*", 1,"RUN","YES HE'S HERE AGAIN WITH LOTS TO SAY"
104 DATA 0,"BIORYTHMS*", 1,"RUN","FIND OUT HOW YOU WILL FEEL TOMORROW!"
105 DATA 0,"ESP-TEST*", 1,"RUN","GUESS YOU KNOW WHAT THIS IS ABOUT!"
106 DATA 0,"BIO-COMPAT*", 1,"RUN","ARE YOU SUITED TO HIM/HER?"
107 DATA 0,"HALS 'X' FILES*", 1,"RUN","THE TRUTH IS OUT THERE!"
108 DATA 0,"OZ CONNECTION*", 1,"RUN","GET DOWN UNDER MATE!"
109 DATA 0,"KALEIDOGRAPH*",1,"RUN","WE ALL HAD ONE AS A KID, NOW IT'S BACK"
110 DATA 0,"KALEIDOSCOPE*", 1,"RUN","MEGA PATTERNS ALL FOR YOU"
111 DATA 0,"STIX/AVA*", 1,"RUN","A WEIRD LITTLE GAME"
112 DATA 0,"LABYRINTH*", 1,"RUN","GET LOST WITH THIS GAME, IT'S A-MAZING"
115 DATA 0,"EGO BOOSTER V2.1*", 1,"RUN","WE ALL NEED THIS SOMETIMES"
120 DATA 0,"FATMAN-DEMO/MH*", 1,"RUN","A BIT OF 'LITE' RELIEF FOR YOU"
130 DATA 0,"        ", 1,"RUN","     "
140 DATA 0,"RE-SET*", 1,"RUN","IF YOU'VE HAD ENOUGH, LOAD ME!"
150 DATA 0,"        ", 1,"RUN","     "
160 DATA 0,"        ", 1,"RUN","     "
170 DATA 0,"        ", 1,"RUN","     "
299 :